home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / worm.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-06-18  |  5.4 KB  |  8 lines
  1. 2  DEF SEG=0:POKE 1047,80:SCREEN 0,1
  2. 4  WIDTH 40:KEY OFF
  3. 5  DEF SEG=&HB800
  4. 7  DIM RANK$(12):GOSUB 11000
  5. 10  GOTO 5000
  6. 100  A$=RIGHT$(INKEY$,1):FOR D=1 TO SP:NEXT D
  7. 110  IF A$=CHR$(77) THEN DX=1:DY=0:DI=1:IF 0
  8.